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EDITORIAL 








Chèéres amies, 





Chers amis, 








Les sanglots longs des violons de 1° automne 
Elessent mon coeur d'une langueur montone. 









Verlaine 






Eh qui, l'automne est arrivé, avec lui ses 
frimas, son ciel gris, sa pluie fine, ses journées 
de neuf heures. Âtroce, pareil à lui-même. Mais 
heureux tes vous, qui pouvez occuper Vos longues 
soirées, aidés pour cela par votre fidèle calcula- 
teur HF. 














Mais revenons à des choses plus terre à terre. 
Farlons de l'Assemblée Générale: elle . se tiendra 
probablement fin octobre ou début novembre. Nous 
vous tiendrons avisés par courrier. 















Le SICOR a eu lieu (alea jacta fuit).4 l'heure 
et au jour où cet article est écrit, nous n'avons 
bien entendu aucun renseignement sur les nouveaux 
materiels présentés. Âvez-vous vu les disquettes 
HPF-IL et la video graphique de FFC FARIS 7 














8 propos de la HF-41, les possesseurs sont 
priés de bien vouloir nous faire parvenir des 
programmes, N'oubliez pas que c'est vous et vous 
seul qui faites votre journal. Sans vous, le 
journal ne contiendrait que cet editorial, et pour 
rester dans les normes, i1 eut été nécessaire de 
poursuivre trop avant cette nuit. 














Nous essayons une nouvelle présentation de la 
rubrique 71H, Le mois dernier, nous avions trois 
colonnes à Ja une, ce mois-ci, nous vous en propo- 
sons deux et attendons vos remarques et suggestions. 








Merci, pour le Eureaus: 






Laurent ISTRIÉ 
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UN MOT DU PRESIDENT 


» 


11 m'arrive rarement de prendre la plume à ce titre, mais je 
pense qu'il est bon quelquefois de vous rappeler mon éxistance. 


Je pourrais débuter ma lettre comme dans l'éditorial: "les 
sanglots longs ... ". Mais j'ai juste quelques raproches à vous 
faire. Effectivement: à mon retour de vacances, j'ai voulu faire 
le point des articles qui nous restent. Beaucoup de membres nous 
font des compliments sur les articles et leur niveau d'interêt: 
"BRAVO AUX REDACTEURS''. Mais ils semblent oublier que c'est 
l'effectif de 150 membres qui permet de garder vie à notre 
journal. Notre prétention à tous, est de l'amener à un niveau de 
qualité comparable à celui des revues professionnelles. La seule 
différence est le manque évident de publicité que nous nous 
refusons d'y insérer. Nous avions fait le calcul, il n'y a pas 
si longtemps, qu'un article par membre et par trimestre, nous 
permettait d'avoir une revue d'épaisseur très appréciable. 
Suivez mon conseil: reprenez les JPC, examinez-les, et posez 
vous une seule question: "qu'ai je fait pour la vie de mon club 
et de son journal?" Cherchez le nombre d'articles que vous avez 
écrit, et je vous le demande: REAGISSEZ! Quand nous avons créé 
le club, nous pensions que son journal serait le début d'une 
étroite collaboration entre les membres. Mais je m'aperçois que 
ce sont toujours les mêmes noms qui reviennent. J'attends donc 
vos impressions non seulementsur cette demande, mais aussi sur 
tous les appels que nous avons fait depuis la création du PPC PC. 


d'autre part, la recherche auprés de divers imprimeurs du 
meilleur rapport qualité/prix, nous a permis d'atteindre une 
qualité très appréciable, et celle-cine fera qu'augmenter. Le 
seul problème, celui de tous clubs loi de 1901 dont la comptabilité 
est saine, est celui du financement. Le coût du papier augmente, le 
nombre de page augmente,la qualité augmente et nous avons réussi 
à garder la périodicité de 10 numeros par an au prix de bien des 
efforts. Aussi, aprés en avoir longuement discuté avec les membres 
du bureau, nous nous voyons dans l'obligation d'augmenter le montant 
de la cotisation et le prix du journal à l'unité. 


désormais: - celui du journal à l'unité sera de 35FF 

— l'abonnement, restera à 200FF jusqu'à la 
fin du SICOB de septembre. 

- À partir du numéro d'octobre, 250FF et ceci 
jusqu'à la fin janvier (petit cadeau de fin 
d'année pour les réabonnement). 

— À partir du numero de février 85, il sera de 
300FF avec un tarif étudiant. 


Enfin, n'oubliez pas le prochain SICOB de printemps ou nous 
espérons avoir le même stand que l'an dernier. Nous sommes 
actuellement à la recherche d'interfaces et de moniteurs VIDEO 
pour l'animation. 


Espérant que vous comprendrez et approuverez cet appel, je vous 
souhaite à tous une heureuse programmation. 


PHILIPPE. 
"R page 2 


DIVERS 





VELIZY, le 19 Septembre 1984 


Monsieur, 


RFM va proposer, à partir du lundi 24 Septembre, une 
émission axée sur la micro-informatique. 


L'une des rubriques que nous allons développer est 
susceptible de vous intéresser, 


Tous les jours, du lundi au vendredi, à 17 h 30, nous 
diffuserons la fiche signalétique d'un club 
micro-informatique. 


Vous'trouverez, ci-joint, un questionnaire, que nous 

vous remercions de bien vouloir remplir très soigneusement 
et nous retourner le plus rapidement possible, afin gue 
nous puissions avoir les éléments nécessaires, (à l'atten- 
tion de Jean MARTINELLI), 


Dans cette attente et en espérant que cette initiative 
vous séduira, 


Nous vous prions d'agréer, Monsieur, l'expression de nos 
sentiments distingués. 


Jean MARTINELLI 
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R F M - 78140 VELIZY - TEL. 946.38.38 


NOUS EN AVONS 


Sont en vente au club: 


Cartes magnétiques: 150FF les 50 cartes 
Eproms (2716 et 2732): 

Vierges: SSFF + 3,10FF de port 

Programmées : nous consulter 
convertisseurs HPIL (82166A): 1650FF + 3,10FF de port. Livrés avec 
connecteur et manuel. 
Le MLDL hollandais (société ERAMCO): 3860FF +port. 24k EPROM et 
8k RAM de microcodes. Délai 1 à 2 mois. 
Commandes de la ZENROM et de la CCD ROM: prix de souscription 
1000FF, envoyez nous 500FF minimum d'arrhes. 
VASM (listing commenté par HP des 3 premières pages de la 41): 
150FF + port 
manuel de service de la 41: 5OFF + port 
Manuel technique du convertisseur: 20FF + port. 


ACHATS GROUPES 


Nous envisageons de grouper les achats de ceux qui le désirent, afin 
d'avoir des réductions sur les matériels HP et autres. Faites nous 
savoir vos intentions et donnez nous des promesses fermes. 

Pour l'instant une commande de modules FORTH/ASSEMBLEUR pour HP71B 
est en route. 


COURRIER DU COEUR 


Jean Pierre BONDU, Domaine de Croix Marie, 78121 CRESPIERES (056 54 00) 
vends: 41CV + XFCT + TIME + 2XMEM (tous intégrés) + batterie + chargeur 
à 2200FF, ou 1 41CV à 1800FF, 1 module quelquonque à 300FF, HPIL 400FF 
crayon optique à 40O0FF, MLDL SCIP à 1000FF (4k EPROM & 4k RAM). Prix 

de groupe, si vous êtes vraiment intéressés, n'hésitez pas à appeler, 
une bonne surprise vous attend. 

Alain BOCHET, 4 rue Poirier, 94160 St MANDE (374 24 57)vends: 

HPA41CV + XFCT + XMEM + TIME + LECTEUR DE CARTES + HPIL + ACCUS + 
CHARGEUR + 160 CARTES (nombreux programmes) + doc: Programmer HP41, 
synthétique programming (en français), au fond de la HP41 (PRGM pour 
synt. "CODE", "DECODE", ‘"’KA'"', "CA", "KP" déjà sur cartes). Doc d'origine 
complete, le tout en très bon état. Prix 3500FF (Tel bureau: 207 75 36 
poste 45). 
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Jean Marc PRADELLES 
5/7 Bd Edgard Quinet 
75014 PARIS (322 13 84) 


Monsieur, 


Ayant eu vocoordonnées par la société Hewlett-Packard 
(service du telephonne vert), je m'adresse à vous dans l'espoir 
de trouver une solution à mon problème. Je suis propriétaire 
d'une HP41CV et j'ai fait récemment l'acquisition des manuels 
d'applications "FLUID DYNAMICS AND HYDROLICS" et "HEATING, 
VENTILATING AND AIR CONDITIONNING". J'éprouve de grosses 
difficultés à trouver les concordances avec les équations 
et unité americaines, et à faire tourner ces programmes. Je 
voudrais donc savoir, si par l'intermédiaire de votre association, 
vous disposez de l'équivalent en français de ces programmes? Ou 
si vous pouvez me mettre en contact avec des personnes susceptibles 
de pouvoir m'aider dans la programmation de ces manuels. 


En vous remerciant par avance, je vous prie d'agreer, 
Monsieur, mes salutations distinguées. 


J.-M. PRADELLES 


Plusieur$ membres m'ont demandé qui a réalisé un interfaçage 
entre une 41 et un ordinateur APPLE. Si possible sans convertisseur. 
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ai: 


CREATION D'UN XROM (suite) (PIERRE ANTOINE) 
ENTREE DE CARACTERES EN ALPHA (PHILIPPE GUEZ) 
BIZARRERIE SUR HP41CX (JEAN-PIERRE TOYRE) 
QUE PEUT-ON FAIRE AVEC UN EXT. I/O (JEAN-CLAUDE BECKER) 
PRGM DIRE (JEAN-CLAUDE BECKER) 
PRGM ENVOIE (JEAN-CLAUDE BECKER) 
PRGM CT (COMMUNICATION TELEPHONIQUE) (DENIS CASTELAIN) 
TRADUCTION Ai.LA GREC DU PRGM ‘'WUMPUSW (GILBERT TISSERAND) 

: PRGM INTG (JEAN-JACQUES MOREAU) 
: PRGM LEC (EXECUTION AUTOMATIQUE) (JEAN-JACQUES MOREAU) 


sal 


. 


. 


OWHJIJOnOREH 


PETIT THEATRE DES MICROCODES 


: DECODAGE PROGRAMMES (DANIEL JACOB) 


CREATION D'UN XROM (suite) 


Si vous avez essayé de créer des XROM, vous vous êtes tout de 


suite apperçu que l'on ne peut programmer que ceux de la 8° ligne 
du 1° tableau, soit: 


XRY1 — 95 - 99 — 13 - 17 - 21 - 25 - 29, car cette ligne 
est en relation directe avec le 2° tableau. 
Mais les indirections 32 à 39 comportent 4 possibilités, il faut 
donc se retourner vers la table des codes et lire entre les lignes. 


Alors se dessine le tableau joint des XROM 99 - ÿ1 - g2 - 93 #, ce 


qui permet en combinant indirections + fonctions XROM #1 - 92 - 93 - 49 
de créer le reste. 


On remarque dans ce tableau sous certains XROM des STO, fonctions, 
global, etc... En effet, aprés la manipulation de création avec 


le CRIC dans le programme, ceux-ci sont suivis parfois de STO ..., 
fonctions, etc... 


Voilà, je vous ai soumis le total de mes cogitations, maintenant, 


serait il possible qu'un autre membre du club puisse approfondir 
techniquement ce sujet? 


(x) le XROM #3,49 à 63 est fonction du nombre de lettres mises aprés 
l'indirection. 


AMICALEMENT 
JEAN PIERRE TOYRE 


ERRATUM: Sur la page 20 du n°16 JPC, lire au 1°): 9x16 au lieu de 11x16 
pour la conversion de 9 dans le nombre D89B. 


IPC n°18 page 6 

















Tete fete fee 
aff bebe 








IND34 InD35 1IND36 invD37 1N0®38 IND39 





IND32 1033 

































LSt 014 LSL CZ LSL OI] LAL 04 


00 L3L 95 
ue 62 o203|00, o4 jD0, os 


c006 






LL 19 fLAL 11) LSL 124231 13} LL 14 
00,10160.44 oo, 0043 00,44 100,45 















LL 0e [LL 07 [LL 28 jL3L 09 
20.07 œe 08 css Lo 
















à ST C9 APRES LROM 


RG-02 RQ O3{RC 04] RC 26 
co il 00,35 2 F100 cé;43|c0 44 
510 02! 510 93510 041 550 05550 06/3510 C7 1570 08] 510 99] 510 10 510 11157 
[20 50| 005 [en se 0e 53 [oo 54 ee ele 5% 09 s8|ce ele a 
# |% 4 A<Y? {X>T7 [XSY? [Et JE. LAMS—) HMS— 4MOD .{ CH PR 
$ (sclees É sh le aile 05] 01,%610107 Fol;t8l 0153 Le no Lu 01,15, 
ww 1x?2 TX ; Ti0rx TÉFACT SIN. COS JtAN  HaSiN LACS JATAN [=0EC 
1161 04,47 Le NEA Es 11, se. 22101: 523 _ ele Zelo 2710128|e1, 291 el 3 
1X ABS IFACT 1X#07 |x>0? ESS X<07 {Xm07 HINT FRAC ‘JD—R RD {HMS j—HR AND |-OCT 
c1,32 Le End 4,37 [01 less nb azltés ©1464 45246 | ©1,47 
CL {xe>Y RT RON : X=mY? XF 1? | SON 157 MEAN FSOEV AVIEW CD 
01, 48) 0449 L. 5001 51 ma Vos Le rslosle css fesselsseles ssl éolo1614e s2lo el 


À 
oil os 


So ©» 
RE CO RCE O1 
? lo0 32 | 00,33 
59 c0S10 O1 
se 



























RC 11 RC 1218-13) RCL 14 
20,45 co 46 


50 Le 







RQ 15 
00,47 


51015 
ao 3 




















































60,62 








‘20,61 


















































































































n 





























































ni 1091! 7 | eo an 1101 ie 1110 las T7 





| Lac CCCO s00! | ns O1 a ra FE | ES 9311 











D HE me VER 
g 22e + Robe 2: 249 > : aù 2.7 1$e 2. oz: 
Pure hétor: 02,16 2: Lez. 24T re 








not 


asi X235-3: 

















Tee mes 031672 9401008 Eu ns a BIS nier 0 dois iles 3 13 
52, 07,54À< ss ro; Site 57: 22,58 : :02, 53 de > 4E. Pose arle 
nee RTE ; sr serre PEL mt Ro Be 










+ SPARE 
Ron 03,353 
FOIE T low : 





TIEXT 6 9° |" 
Rom ©3,; 53 








£ 
: TOCS 


fo ntiA | AY? 


Attention cetlte fable n'ethas docs rmoletement. 






Suite au coup de fil d'un honorable membre, vous trouverez ci-aprés 
un programme vous permettant en mode programme d‘ajouter (APPEND) des 
caractères alphanumériques à une chaine déjà éxistante.et contenant 
au plus 21 caractères. B1iLBL "ECA" 
82 ADN 

03 "CHAINE?" 
84 STOP 

@5 FCrC 23 
86 CLA 














Si vous utilisez souvent le SCHIFT, il vous est 
possible d'ajouter "SF #7" entre les lignes 13 et 14. 















À l'éxécution de ECA, on vous demande une entrée, 
ceci peut être changé en fonction de vos besoins, c'est 
votre chaine primitive. Les lignes #7 à 12 font 








































































l'étude du registre "d'" et stocke les drapeaux 49 à 55 B?LBL @1 
dans les drapeaux # à 15 qui eux peuvent être changés 08 K<> d 
et testés selon les besoins. Les drapeaux 45 (entrée 29 KO [ 
de données), 47 (SHIFT) et 48 (ouverture du mode ALPHA) 18 "RKKXXX" 
se retrouvent respectivement en 95, 97 et 98. 118O LC 
La fin du programme sert à la remise en état de 12 X@ d 
votre HP41: 13 SF 05 
14 SF 08 
Le registre "4" (autre drapeaux que 45, 47 et 48), 15 X<> d 
le registre ALPHA et la pile (registres "Y", "Z" et "T") 16 XO [L 
et le LASTX ne sont pas perdus 12 “xx” 
Le registre "X"' est mis à @. ms = L 
AE & 1/7: R = APPEND 20 RCL X 
nn: < 21 XO d 
. 22 RO 7 
Eu © 23 XO 
mr 24 KO 
25 RDN 
26 . 
BIRANMPRTE SUR HPALCX 22 KO. 


28 CLX 
23 AUIEN 
END 







Essayez d'éxécuter un programme "xxxxxxx'"", s'il 
n'éxiste pas dans la mémoire, la HP41CX affiche 
"NONEXISTE". 





Par contre, aprés avoir éxécuté le programme ci-joint, la HP41 
n'affiche pas "NONEXISTENT". 






POURQUOI? 







Marche à suivre: 





1°) Affectez: "a" à "LN", 
"x/64" à "TANG". 





2°) Aprés avoir lancé le PRGM avec [+=], l'affichage indique READY 





3°) ENTER un chiffre du type: x/64% voir tableau joint. 
(x,64 x,32 x,16 x,8 x,4 ou x,2) 


Appuyez sur |x/64|, l'affichage indique un chiffre, 
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4°) Faites maintenant: 


XEQ 92 à 99 

GTO ÿ2 à 99 

STO #2 à 99 

RCL 92 à 99 

5°) Théoriquement, la 
cas, elle redonne 


6°) Refaire le 4°), la HP affiche 


QILBL "+." 11 
02 FIX 2 12 
@3 CLRG LS 
4 CLX 14 
05 " READY" 15 
06 AUIEUW 16 
27 STOP 17 

18 
O8LBL "Xx/-64" 13 
29 STO 28 20 
18 FRC 


Réponse du Dr JPC: 


ou £ghaine ALPHA "1 à 7 chiffres ou lettres" 


ou 
où 
ou 


HP affiche 


180 

* 

STO Q1 
18 

/ 
ENTER" 
FRC 
KQ°? 
GTO 20 
ROY 


"ja! 
"id" 
“ia! 


"NONEXISTENT'', seulement dans ce 
le résultat affiché précédemment? 


MNONEXISTENT"? 


21 


22 
23 
24 
29 
26 
2? 
28 
29 


STO @1 


LBL @a 
RCL 20 
INT 
STO 20 
SF 25 
RCL 8 
RCL @1 
/ 


AMICALEMENT 
JEAN PIERRE TOYRE. 


30 64 


31 * 


32 25.4 
33 64 


34 / 
35 X 


36 END 


LIGNE18= X@? code: 99 


Quand vous armez le drapeau 25 (ERROR IGNORE), et que le pointeur 
passe sur une instruction qui provoque un message d'erreur, cette 
instruction est ignorée par la machine. 


PHILIPPE. 


se 
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QUE PEUT=ON FATRE AVEC UN MODULE EXTFNDED 1/07 


J'utilise beaucoup un tout petit nombre de ses fonctions 
pour la commande de mes automatismes présents et à venir. 

Mais ce module comporte bien d'autres fonctions ( cf JPC 
N° de 

Aussi, pour ceux qui veulent le rentabiliser, et pour ceux 
qui hésitent à se le procurer, voici réunis dans deux pro- 
grammes commentés quelques exemples de ses possibilitées 
lorsqu'il est associé à un lecteur de cassettes HP 82161. 

Le premier programme, "DIRE", permet de faire imprimer 
le catalogue d'une cassette par une imprimante ou une table 
traçante interfacée IL par un convertisseur HP82166A. 

En effet, l'instruction normale "DIR" est inopérante, 
car la 41 considère l'imprimante comme un vulgaire conver- 
tisseur et n'arrive plus à se faire obéir d'elle..(Pour 
ceux qui n'ont pas encore vu fonctionner ce genre d'impri- 
mante, rassurez-vous, c'est à peu près le seul cas où il 
y a des problèmes.) 

Le deuxième programme, lui, "MENVOIE"/"MRAMENE", permet de 
créer un tampon (Buffer) de 256 octets de mémoire vive 

pour y stocker une ou plusieurs chaînes alphanumériqaues, 
et les récupérer ensuite, 

Mais contrairement au module HP IL PEVELOPPRMENT, cette 
zone mémoire n'est pas prélevée sur la MEV de la 41, mais 
sur celle du lecteur de cassettes. D'où, 6 joie, 1/4 de 
Koctets de mémoire vive récupérét 


PROGRAMME 1 DIRE # : 

Une remarque: ce programme n'est pas identique à "DIR" 
quand au résultat obtenu:11 manque les indications de sé- 
curisation, de privatisation, et de départ automatique. 
par contre ,il donne en plus le numéro d'enregistrement 
de chaque fichier. (cf exemples) 

Le programme m'a été fourni par ETIENNE POUPE pour la 
table traçante CANON (banc d'essai dans le numéro de juin 
1984), et je me suis amusé à y rajouter un maximum d'ordres 
supplémentaires, 

Pour les indications manquantes, il n'existe aucune 
instruction les donnant directement; il faut lire et déco- 
der chaque octet du catalogue de la bande individuellement. 
C'est possible avec le I/0,mais je n'ai pas le temps de 
m'en occuper. Alors je lance un appel au peuple:envoyez- 

nous vos trouvailles! 

COMMENTAIRE DES INSTRIUCTIONS: 

Pas #2 à 95 :cherche un convertisseur, et le sélectionne 
comme appareil principal. 

Pas 98 à 23 :affiche l'en téte(date, heure, et nom des 
rubriques) 

Pas 25 à 29 :cherche et place en alpha le nom du fichier 
dont le numéro d'ordre est dans le registre ÿ1 
Si ce fichier n'existe pas(fin du catalogue), 
va en LBL 19. 

Pas 39 (FLTYPE) : place en X les deux lettres-code du type 
du fichier. 

Pas 35 à 41 et 44 à 49 : accroche la valeur de X justifiée à 
droite. 


Pas 42 : donne la longueur du fichier, en octets pour les 
programmes et en registres pour les autres 
types de fichiers (valeurs aberrantes pour 


les fichiers de tupe inconnu-°?7 
7. se n°18 page 18 





Pas 59 affiche ou imprime une ligne, 

Pas 59 (7 DEVL ,) rembobine entièrement la cassette 
(identique à la touche M"REWIND" }; celle-ci estt 
prête à être enlevée. 

REMARQUE: on pourrait raccourcir le programme en rempla- 
çant les labels #9 à 95 par une boucle, mais celà le ralen- 
tirait encore, alors qu'il est déjà assez lent. 


\., 


PROGRAMME MENVOIEN : 

REMARQUE: Ce programme considère que la houcle IL est 
en mode manuel et que le lecteur de cassettes est appareil 
principal. (si se n'est pas le cas, mettre en X le N° de 

l'appareil sur la boucle, et faire "SELECT"; "MANIO") 

Le lecteur de cassettes dispose de deux mémoires tampon 
de 256 octets chacune, numérotées # et 1, et d'un pointeur 
variant de Ÿ à 255, commun aux deux mémoires. (Quand il 
pointe l'octet "i", il pointe à la fois les octets "it e 
de chaque mémoire.) 

Comme la mémoire @ (et elle seule) est douée de réfle- 
xes fort dangereux pour nous,(elle a parfois tendance à 
décider d'expédier tout son contenu sur la bande magné— 
tique-entre autres chaque fois qu'elle es. pleine-),1le 
programme ne l'utilise pas et veille à la laisser intacte, 
ne se servant que de la mémoire 1 , 


COMMENTAIRE DES INSTRUCTIONS : 
Pas 93 : doit contenir l'adresse de l'appareil sur la boucle. 
Pas 94 : "LISTEN place l'appareil en mode récepteur (lecteur) 
Le voyant "BUSY" s'allume et reste allumé . 
Pas #5 à 97 : La séquence "1" "DEVL" place le pointeur à 
s # et échange les contenus des deux mémoires 
(comme XX>Y). Le deuxième "DEVL" remet les 
mémoires à leurs places. 
#9 à 12 : Envoie la chaîne en alpha vers la mémoire 1, 
en l'écrivant à partir de la position du p 
pointeur. ‘ 
Pour stocker un groupe de chaînes il faut donc faire 
XEQ À la première fois et XEQ a les autres fois. 
Pas 15 16 : Place l'appareil en mode émetteur. 
Pas 17 19 : Comme 95 à 97, en mode émetteur. 
Pas 21 22 : Transfert une chaîne de la mémoire 1 vers 
la boucle, en commençant au pointeur, 
Pas 26 : Envoie la chaîne (jusqu'au premier caractère 
fin de ligne/retour chariot) vers l'appareil 
dont la position sur la boucle IL est placée 
dans le registre 99. R9@ doit contenir un 
nombre compris entre 1 et 39). Les donnéés 
ne transitent pas par la mémoire de la 41. 
Pas 29 à 39 : Ramène la chaîne vers le registre Alpha et 
l'affiche. ( Si R#@ est nul). 
Pour ramener un groupe de chaînes, il faut donc faire 
XEQ E la première fois et XEQO e les autres fois. 
REMARQUE: Attention à l'indicateur 171 
En mode émetteur, il vaut mieux le désarmer. 
En mode récepteur, il accrahera entre elles deux chaînes 
succé$ives,;s'il est armé, et les traitera comme des chaînes 
séparées s'il est désarmé, 


EXTENDEDEMENT VOTRE: 
Jean-Claude BECKER 
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@i+LBL "DIRE" 

do “iPhce Catalogue normal QieLEL “ENVOIE 
03 FINDID 58+LBL 18 DIR 824LBL A 
84 SELECT 59 7 NAME TYPE REGS 83 1 


68 DEVL -4175- FRS à 84 LISTER 
. 61 PHEIDK BECKER PR;S,A 3 85 18 
97 STO Bi 62 BEFFP NSTRDJE DR,S 43 @6 DEVL 
08 FIX 6 63 OFF COG/VIH PR,S 285 87 DEVL 
49 BATE HONSTRE WA.S 336 
18 CLA 64+LBL 84 KEBIT PR,S 28t BeLEL a 
11 RBATE 65 “+ NSTRJDB DA 49 g3 ji 
12" TRAINI Wf,S 336 18 DEVL 
13 TIME 66+LBL Bi TRAIN2 HA,S 336 11 QUTA 
{4 FIK 4 &? "+" PER PR 16 12 RTH 
15 ATIME24 SUIVITR PR 4 
16 CF 17 68+LBL 82 BEC PR if 1341BL “RAMENE" 
17 QUTA 69 "+" AFFIC AS,5 286 léelBL E 
18 AY TRAINS HA 336 15 65 
19 FIX 8 F8+LBL 83 TRAIH HNAf 336 16 SEHD 
Pa CF 29 71" VENTE D Hf,S.,f 336 17 4 
931 " HON TYPE “ VENTE 7 Hi, SR 336 18 HEVT 
22 -k LOKC.r 724LEL Hd SICOB HA,S 336 19 DENT 
23 OUTA #3*+" COURSE 77 264 
LABYE 27 12858 PAHEL € 
244LBL 11 F4+lhi 85 FRACTIO 7? 12386 él l 
25 AUTOID 75 .ENE. RACIHER 7? 2961 82 DENT 
26 RCL 81 #7 3586 23 RCL GB 
8? BIRX ê4 x=87 
28 x=07 "su 19# 25 GTO 68 
29 GTO 18 26 RFERCL 


34 FLTYPE His 11:35:45 2? RTH 


"+ . TPE LUHE, 
- ne . BECKER 
34 REL 81 non 
Lots LT 

= de ’ MOHETRE 

37 INT REDDIT 

38 Y=87 MESTRUDE 

39 REG B4 TÉAIHI 

48 REH TEAIHE 

di ARCL & PEF 

42 FLLEHE SUTVITE 

43 "+ * DEC 

44 ENTERT HFFIC 

45 LOG TRAINS 

46 IKT TÉAIH 
4? XEG INE X WENTE CL 

48 RDH VENTE % 

49 AECL & SICOE 

SA MAXI COURSE 

Si FC? 55 LABYR TT 
52 AYIEM FRACTIO FF 
33 FS7 55 FACIHES + 


| *EB E 
04 GUTR IHTEG ; 
5S 190 81 * ABCDEFGHI JKLNHOPORSTUVNX 


56 DEC REMARQUE: LES FICHIERS EG € 
57 GTO 11 1971 SONT DES PROGRAM- 
€ 


e8+LBL 88 
29 INA 
36 AYIER 
31 ERE 


Er Et 


ie 
LA ea 
Ca) 


FE 


SF 17 
$EG À 


ABCIE 


D EN A & Liu 


SE 
LE 


M LE at 


" 
hs Er tai 


BAT D M da Lt En 


FCHIJ 
REG 3 


Bob ET 


ni 


ET 


ÉLHHOP 


Lit 


*EG 3 


© 
Les 


GRST 


ï 


17 


KEG à 


FT 


UYRS 


ee. 
EE 


CF 17 
KES a 


à Ts 


Y2=2 
REE a 


. 
2. 


: s48i 
RES à 


Fit Foi Pere 
Eat es Et CT a da Et er MN Let 
1h! 


LE mt État Cat Cr 1 Eat Ps 


at Ferre tt 


Hs Lt 


Fi 
Li 
CHER rene 
ee Foi fil 


Ÿ2=? 


DEJA PUBLIES DANSJPC. Re KEB € 
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PROGRAMME "CT" 


" Calcule le prix d'une communication téléphonique." 


le module TIME 

Un annuaire téléphonique pour déterminer la durée de la 
taxe de base en fonction de la destination de votre appel. 

Si la taxe de base venait à augmenter, changer le "",65 "" du pas 05. 


Affectez “( à la touche SIN (23) 
Durée TB (SEC) : Entrez la durée de la taxe de base (heure pleine) en 
fonction de la destination de l'appel, en secondes (12, 24..) 


Nécessite: 


FERIE ? Si oui, appuyez sur "O" (touche 42) 
Si non, appuyez sur n'importe quelle touche (RS par exemple) 
ou laissez faire (soyez patient.) 
PRET ? Composez votre n° de téléphone. 
Quend votre correspondant décroche, appuyez sur R/S. 
Le PGM boucle environ toutes les 12', et affiche le temps 
écoulé depuis le début de la communication et le prix. 
En cas de changement de tarif en cours de communication, celui-ci est 
indiqué par un "BEEP", 
Quand vous raccrochez, appuyez sur SIN. 


BI#LEL *CT" 

CEK KO CLRG .65 
STO 82 "DUREE TE " 48 
£TOA “HGec" 41 XTOA 
PROMPT ENTERT ENTER 
68 NOR 1E2 ; ST 
LASTE # - 68 / + 
1E2 ; HR STÙ 0] 
"FERIE?* TONE S AVIEN 
GETKEY CLR 2 Xx=17 
GTE 88 


393#LEL 45 
DATE DOH & X=Y? 
GTO BB 6 + x=77 
. 6T0 81 GTO 67 


J8+LEL 43 
BEEP RCL Z STO 4 
SF @4 RCL 88 - STORES 
GTO 85 


S4LBL 86 
SF 81 GTO &7 


624LBL 81 
14 TIME Av? SF BE 


67+L8L 67 
6 KEG 43 F5? Qi 
GTO38n FS2 42 CTO BI 
HR 5 


F6#LBL 81 

14 F6? 82 XEn 85 
F5? 82 GTO 44 16 
REB 95 21,9 KEO €5 


86+LBL ÿ 
23 REG 65 & TD BE 


SieLBL 65 
TIME HR XM7 RTH 
ACT 


374161 68 
ST0 93 GTO IND X 


IAB+LEL 18 
1 GTD 84 


1824LBL 21 
1 GTD Ré 


186+LBL 88 
1874LBL j4 


IRS#LEL 27 
+5 GTO 84 


I1ieiEl 86 


1124LBL 38 GTO “T" STOPSH SF 63 


,35 GTO “T* 


I82+4LBL 88 
CLR KCF CLK STOP 
#79 "CT" EN 


1144LFL A4 

RCL 82 + STO 88 
"PRET?" FC? 88 PROMPT 
FC? 98 STD 41 FC?C 84 
GTD "T" RCL A5 RCL @8 
+ ST- 84 GTD *T* 


1384LBL Bi 
"ALLO ALLO" ANIES 6 


SETSH RUSH SF GA PSE DA 
PSE 


13G#BL "7" 

FIX 4 R[LSK CLA 

AREL X HE RL 81 
ENTERT FRC K=#7 

GTO 88 - 1 + CTO 8! 


ps? 
C 


1SS+LEL 88 


ISF#LBL fl 

RCL 46 # RCL Ré + 
FIX 2 “+=* BEL E 
"HF" ANIER TONE 9 
REL 83 TIME HE V7 
GTO 83 F£7 43 CTO 88 


GETKEY 23 Ke? JPC n°18 page 13 





TRADUCTION À LA “GREC® DU PRGM "HUMPUS" ALIAS THESEE (livret de solutions 
"GAMES" de H.P.) 


LBL A:Vous permet (représentant THESEE) de vous rendre dans l'une des 
grottes Adjacentes à celle que vous occupez,avec:votre épée et lapelote de 
fil de soie offerte par Arisne, fille de Minos, roi de Crète. 


LBL B; Vous permet de livrer Batsille su minotsure en laissant le fil d' 
Arisne dans la caverne d'où vous Partez, pour venir la reprendre ensuite. 

1°/ Le monstre gfte dans la caverne choisie: la lutte s'engage...vous lui 
arrschez une corne avec laquelle veus lui defoncez le erêne...... 

2°/ Le monetre n'est pas là, 11 ehange alors de gîte et va dans une grotte 
adjssente à selle où 11 se trouvait, il peut tres bien se tapir dans l'entbre 
où vous saviez laissé le fil d'Arisne 777? 


LBL C: Vous permet de visualiser: les dangers qui vous enteurent, la Case 
où veus êtes et les eases adjacentes à la vetre. 


EBL D: Début du jeu. 


L'annenee d'essuaire(s) laisse présumer l'éxistence de galeries menant à 
d'autres cavernes par des lsbyrinthes trep étreits peur le passage du renstre. 
L'annence de fesse(s) n'est pas a prendre à la légère..... 
EXEMPLE: en mede USER, 


ALER ? 


DEDALE 
"er 


— FOSSE 
"15" 28-6-14 


“6 Î-7-15 


— OSSURIRE 
"7" 16-6-È 


GALERIE 
MEHANT EH 18 
18" 11-19-17 

11 
— HONSTRE 
"11" 18-12-18 

ie 
HONSTRE.. 
DEBUSQUE. . 
"li" 18-12-14 


SEE à 


RUE 


*EG À 


kEG À 


KEG À 


*EG & 


*EE 


&EG E 








leslals)e] rl el oholnfialielialisfiehrfrefse(20 
MINOTAURE [T1 TT IT TITI TT 
AN SRBSRANRUSEUERSeNSRE 
CRPERES hi) SLR MP a ele 
HOUR SESRRRSRTeRSSSRANeRN 
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CAT ! 
EXD 648 BYTES 
PRP = 
88:29 89/88 
BisLBL D 
CLX ALER 2 PRONPT 
STO 68 SF 27 
B7LBL E 


“ DEDALE" AYIER FIX @ 
CF 29 1.686 STO 18 


14tLBL 13 
RCL 18 INT E - 
STO 11 29 KEG 99 E 
+ 


24+LBL 12 
RCL END 11 RC K=v? 
GTO 13 DSE 11 GTO 12 
STO IND 18 ISG 18 

GTO 13 


34+LBL C 


35eLBL 26 
RCL 81 XEQ 58 
“- NONSTRE" RCL 62 


KEG 21 *- FOSSE" 


RCL 63 XEQ 21 RCL 64 
XEG 21 *- OSSUAIRE" 
RCL 85 KEQ 21 RCL 86 
KEG 21 


SI#LBL 22 

"+ ARCL GI “+” 
AREL 87 “+-" ARCL 88 
"+" ARCL 49 AVIEN 
RTH 


GèeLEL 21 

RCL 87 KCDY X=7? 

AVIEH RCL 88 &<)Y 

X=Y2 AYIEH RCL 89 

X=Y7 AVIEN TONE 57. RTH 


F6+LBL À 
KEG 14 F5? 88 GTO 22 
STO 61 GTO 89 


82+LBL B 
XEG 14 * MONSTRE.." 
AVIEN FS? 88 GTO 22 
RCL 82 %=Y? GTO 11 
KEQ 58 3 KEG 99 
"DEBUSQUE,." AVIEH 7 
+ RCL IND X STO 82 
RCL 81 XEQ 58 


192LBL 99 
2.886 STO 18 RCL 81 


186+LBL 88 

RCL IND 18 KCDY K=Y? 
GTO IND 18 ISG 18 

GTO 88 GTO 28 


114+LBL 82 
"LE HINOTAURE" TOKE 8 
AVIEN PSE 
“VOUS DEVORE" GTO 16 


121+LBL 63 


1224LBL 84 
RARRRHHH....."  AVIEN 
TONE 64 PSE 

“BE PROFUNDIS" GTO 16 


129eLBL 65 


138+LBL 86 

“GALERIE” AVIEK 28 
KEQ 99 E + STO 81 
“"HENANT EN * ARCL 81 
AYIEN PSE GTO 09 


143eLBL 11 

TOHE 18 “ BLESSE, * 
“HORTELLEMENT"  AYIEN 
TONE 18 “NINOTAURE * 
“HVAINCU" AVIEN BEEP 
PSE “FIL d'ARIANE ?" 
“HR/S" PROMPT RCL 81 
X#Y2 GTO 15 

“VIVA THESEUS* GTO 16 


1624LBL 14 

CF 88 RCL 87 X=Y? RTN 
XC)Y REL 68 .K=Y? RTH 
#CY RCL 89 x=Y? RTH 
“IHCORRECT* AVIEN 

SF 48 RTK 


1796LBL 99 

RCL 88 9821 + ,21137 
+ FRC STO 88 +*# INT 
RTK 


196+LBL 58 

CF 68 5 X()Y STO 18 
XC=Y? GTO 18 15 XCY 
#CEY? GTO 11 2 + 25 
- ST0 87 21 RCL 18 

E + 16 RDN X=v? Rt 
STO 86 15 RCL 18 E 

— K=Y? 28 &=87? RIH 
STO 89 RTH 


289+LBL 18 

E + %)Y?2 E STO 67 
RCL 18 E - X=8? 5 
STO 88 RCL 18 2 +# 4 
+ STD 89 RTH 


244eLBL 11 

è 4 FRC %x=67 SF 88 
23 RCL 18 F5? 88 4 
F5? 08 CHS CF 98 + 2 
7 S10 87 16 RCL 18 

E + K=Y? 6 STO 88 
5 RELIB E - 5 
RDN X=Y? Rt STO 89 
RTN 


278eLBL 15 
“FIL PERDU" 


288+LBL 16 
PROMPT “HOUVEL ESSAI" 
PRONPT GTO E END 


JPE n?fe:pase ts 


Cher président, 


Suite à notre entretien téléphonique, je t'envois le calcul 
d'intégrales qui est listé plus loin. 


Ce programme permet de calculer les intégrales définies et 
généralisées. IL fait appel à la méthode de quadrature de GAUSS- 


LEGENDRE. Nous ne nous contenterons ici que de donner les 
formules utilisées: 


- Pour une intégrale définie (de bornes a et b): 


ñ b a b+a b-a 
F1 L ; ES 2 7; 
f(x) dx * 5 2 Wi f( Ne Zi) 
a i=1 
— Pour une intégrale généralisée (que l'on aura pris 
soin de voir auparavant si elle est convergente! ): 


b 24 Wi 2 
à f(x) dx = 2 T1:22)2 Fo + Q — 1) 


Ce programme est conçu pour une HP41, mais on peut facilement 
l'adapter à un ordinateur (comme le HP71B). Il serait alors 
préférable d'utiliser les zéros (ce sont les Wi et les Zi) d'un 
pôlynome de legendre de degré supérieur à 24. Je donnerais 
ultérieurement la référence de la table qui donne une valeur 
précise de ces Wi et Zi pour des valeurs de i allant au delà de 
100. Si le sus nomé programme n'utilise q'un polynome de degré 
24, c'est parce qu'au delà on perdrait en arrondi ce que l'on 


gagne en précision: en un mot, la 41 travaille avec trop peu de 
chiffres significatifs. 


MODE DAEMPLOIT: @1LBL "“INTG" 24 + 
g2 "" 25 STO NX 
1°) Tabez Xe programme INTG, 03 CLX 26 CLX 


is les Wi et Zi (qui seront 
os. dans les mémoires 1 @4 SF 25 27 STO @8 


à 24 incluses et stockés en 25 SEEKPTA 28 SF 06 
mémoire étendue sous le nom 6 1.824 


de fichier "æ"). Q7 FC? 25 23LBL 1 
08 RDTAX 30 24 
09 FS?C 25 31 STO “ 


3°) A la demande de F-NAMEP,  - : Ce 

entrezole nom de la fonction : 

à intégrer; R/S. 12 AON 33 RCL IND 
13 STOP 34 F5? 06 

4°) Pour une intégrale 14 AOFF 35 CHS 

généralisée, allez au 6°), 15 ASTO 36 RCL 1 

sinon, tapez a ENTER b; 16 STOP 32 X 

puis XEQ a (ou, pressez a HOEN 

en mode USER). 12LBL à ae 

5°) Au bout de quelques LE AE 4@ XEQ IND Î 

temps, la valeur s'affiche 19 STO 2 41 DSE “ 

en X. Retournez en 2°) pour 28 -— 42 RCL IND * 

une autre fonction. 21 2 43 % 


22 44 ST+ 00 
6°) Tapez a; puis XEQ b (ou, 23 STO 1 45 DSE * 
pressez b en mode USER), 46 GTO 29 
allez en 5°) 
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20) XEQ "INTG" (voir les ex.) 





47 FC?C 26 


48 SF 6 
(Ne confondez pas les bornes a et b de la fonction 49 FC? 06 
qui sont des valeurs numériques et les labels a ethb) 5@ GTO @1 


ATTENTION: En vue d'un gain appréciable en temps, on 91 RCL 1 
utilise les registres alpha (M, N, O, P). L'emploi 92 RCL 08 
du registre P impose certaines restrictions quand on 5S * 
introduit une fonction. Ainsi, on ne peut introduire 54 RTN 

de nombre dans la programmation de la fonction; 

les lignes: seront avantageusement remplacées SSLBL b 


Er par: rm 
xX"2 Kn? _ E 
23 REL. 2 « 
k k 58 STO x 
. S9 CLX 
Don 68 STO ga 
avec 29 stocké en mémoire 25. 61 SF 26 


62LBL 13 
6S 24 
64 STO 


Carte de données (2 pistes), en mémoires 1 à 24: 
en X-1,024 puis XEQ ‘"RDTAX!' 


8.800e600000 GSELBL 14 
B,812341230 66 RCL IND = 
2.995187228 67 FS? 26 
2.8028531389 68 CHS 
8.974728556 69 SIGN 
2.844277439 78 FS? 26 
8.938274552 71 CHS 
2.859298585 72 ST+ L 
2.886415527 23 ST+ X 
B.073%46481 74 LASTX 
8.820881986 75 STO ] 
8.286198162 76 
2.748124192 227 \ 
8.89?618652 78 
9.6482893652 ?9 XEQ IND £ 
8.19/7444270 89 DSE + 
0.545421471 81 RCL IND = 
0.115505668 82 % 
Q.455793508 85 RCL 
8.1216/8473 84 x"2 
B.315042680 85 - 
2,125837456 86 ST+ 90 
8.191118868 87 DSE * 
8.12/7938195 88 GTO 14 
B.8064056893 83 FC?C P6 


30 SF 256 
91 FC? 06 
92 GTO 13 
Q1LBL "FF 93 RCL 2 
Exécutez le pas 3°) (toujours du | 22 1/X* 94 ? 
mode d'emploi), a la demande de |@3 x72 95 * 
nom, tapez FF; puis R/S. Tapez a [94 END 96 RIN 
l'arrêt 1 ENTER 4; puis XEQ a. 
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EXEMPLES: Aprés avoir effectué le pas 1°) du mode 
d'emploi, entrez la fonction: 





4 
On obtient: f 1/x2 dx = 0,7500000002. 
1 


Le résultat éxact est 3/4 = 0,75. 


(A propos, comparez avec le programme du même nom du module MATH. 
Et si vous n'êtes pas convaincus de la rapidité de mon programme, 
essayez d'obtenir par celui du module la même précision!) 


* 4 
On a: [ 1/x2 dx (-1/x), 
1 


1/4 + 1/1 


3/4 


Exécutez maintenantles pas 1°) et 2°); puis tapez simplement 1; et 
R/S. On calcule: 


+ 
| 1/x2 dx = 1/7 
1 


= lim (ke 1/x) + 1/1 


f(x) 
O + 1/1 

=" te 

vers l'oo 
t+—— 
Ë x 


On trouve pratiquement 1 


Voici un autre programme. Assignez le à une touche, et désormais, vous 
n'avez plus besoin d'assigner vos propres programmes. 
&8 P P P & S?LBL "LEC" 


À la demande: "NAME= ‘; 38 " * 
33 STC à 

Tapez le nom de votre programmea exécuter (le nom 128 CLXx 
précité apparait à côté du NAME=, à cause d'une 181 RC [C 
astuce de emprunté à Wickes), puis R/S; votre 182 KO d 
programme s'exécute. La pile n'est pas pertubée. 183 "NAME 
Seul le registre Alpha est perdu. 124 AUIEU 


185 CLA 
Longue vie au club ! 186 STOP 
197 X<> d 
188 CLXx 
188 RCL à 
[ E r 118 ASTO [ 
“ = N li GTO IND [ 
] 


LIGNES2= 241 125 
LIGNES8= 242 4 128 


288 BYTES - 0 112 END 


P 


JEAN-JACQUES MOREAU. 
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DECODAGE PROGRAMMES 


Dans un précèdent JPC (cf n°19#),on y a pu lire un PRGM 
(DP) en langage standard (RPN),permettant de lister tous les 
codes hexadécimaux d'un PRGM en mémoire. 

Trouvant ce PRGM un peu long à l'exécution,je me suis munis 
de ma HP-HC,de ma Printer et bien sûr(?),de mon MLDI Et ce 
n'est que quelques heures plus tard que la routine LPC (List 
Program's Codes) sortait de mes ateliers, 

Avec cette routine,en microcodes,le listing des codes hexa 
est imprimé à la mème vitesse qu'un listing "normal" (voir mème 
plus vite).Ceux qui ont pu essayer le PRGM ‘DP',se rendront 
compte de la différence. 

Son mode d'emploi: positionner la Printer sur MAN, puis 
faire LPC "nom du PRGM à décoder".Si l'entrée alphanumérique 
est nulle,c'est le PRGM où le pointeur est positionné qui sera 
déecodé. 

Pour ceux que cela intéresse,l'organigramme est donné 
ci-dessous,permættant de comprendre le fonctionnement de la 
routine. 

Les sous-routines appellées par la routine principale LPC 
pourront être éventuellement utilisées à bon escient: 

EXCÿ: Identification instruction 

Identifie l'instruction dont le 1°7 code se trouve 
dans C(13-12) et renvoie en A(2-#),1la longueur de 
cette instruction(hexa)scomptabilise à chaque appel, 
le nombre d'instructions dans A(12-3), (dec). 
les instruction END et IBL alphanumérique ont été 
considérées comme deux instructions; les flag 8 et 9 
permettent de distinguer les deux cas: 

F8= 1,F9= g: 2° partie du END 

FS= ÿ,F9= 1: " ® "  IBL alphanumérique 

FB= 1,F0= 1: 1° # " END ou IBL alpha. 


EMF2: Positionne le pointeur sur le 1° octet du programme 


(registre b),dont le nom se trouve dans le registre Q, 
codé à l'envers (ou l'un de ses LBL alphanumériques), 

E59F: Charge en alpha le 17 code de C(13-12),plus un 
espace (avec rotation codes dans C = RCR 12). 
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E4CG 


E4CB 2DC R= 13 

E4Ci 8BE ACDC MS 
E4C2 3D8 LDER F 

E4C3 37E ?A+C NS 
E4C4 84F JC E4CD +09 
E4C5 184 CLRF 8 

E4C6 QBE ACDC MS 
E4C7 37C RCR 12 

E4C8 39C R= 8 

E4C3 182 A=C @R 

E4CA 166 A=A+I SEX 
E4CB 23€ RCR 2 

E4CC 3E8 RTN 

E4CD 244 CERF 9 

E4CE 18C ?FSET 8 
E4CF 107 JC E4EF +28 
E428 28 SETDEC 

E4)1 178 A=A+i M 
E4)2 268 SETHES 

E4D3 2DC R= 13 

E4D4 259 LDER 9 

E4D5 31E 2A(C NS 
E4Dé GCF JC E4EF +19 
E417 2DC R= 13 

E4D8 318 LDER C 

E4D9 J1E 2AKC NS 
E4DR 87F JC EdE9 +8F 
E4DB 2DC R= 13 

E4DC 398 LEER E 

E4DD 37E 2A#C NS 
E4DE 823 JNC E4E2 +4 
E4DF 2DC R= 13 

E4E8 358 LDER D 

E4Ei 37E ?7A#C NS 
E4E2 95P JNC E4ED +88 
E4E3 8BE ACC MS 

E4E4 4FC RCR 13 

E4ES 3IE 7KC NS 

E4E6 923 JNC E4ER +44 
E4E7 33€ RER 1 

E4ES QBE AC)C NS 

E4E9 62B JHC E4EE +45 
E4ER 198 SETF 8 

E4EB 248 SETF 9 

E4EC 3DB JHC E4E7 -85 
E4ED 166 A=A+1 Sax 
E4E 166 A=A+1 S8X 
EdEF 166 A=A+1 S&x 
E4F@ QBE ACDC MS 

E4F1 3E8 RTH 


E4F2 

E4F2 IC R= 3 

E4F3 278 READ 9(0) 
E4F4 158 M=C ALL 

ES4FS 2EA ?C#8 K< 

E4F6 868 JNC ESE3 +0) 
E4F? 315 

E4F8 998 ?HCXQ 2605 
E4F9 2ER ?C+8 R< 

E4FA 381 

E4FB G6A ?NCGO B2E6 
E4FC 24C 9FSET 9 

E4FD JEF JC EdFA -43 
E4FE 260 ?FSET 2 

E4FF 943 JNC E507 +88 


ES88 35 

ES81 488 ?NCKQ 22F5 
ES62 86 

ESB3 8CC ?FSET 18 
ES84 3E7 JC ES88 -84 
ES8S 141 

ES86 OR4 2NCXO 2958 
ES87 QRE AC ALL 
ES88 338 READ 12(b) 
ESA9 81C R= 3 

ES8R AA ACC RC 
ES8B 918 LIER 8 
ES8C 328 HRIT 12(b) 
ES8I 06) 

ESBE 69E ?NCGO 2703 


ES9F 


ES8F 678 N=C ALL 
ESi8 GE ACC ALL 
ES11 158 N=C ALL 
ESie 64E C=8 ALL 
ES13 138 LDT SEK 
ESi4 638 

ES15 2HC R= 13 

ESié 298 LIBR A 
ES17 88h A=û RC 
ES18 31E ?ACC MS 
ES19 81F JC ES1C +83 
ESIR 390 R= 8 

ES1B 128 LDER 7 
ESIC QRE ACC ALL 
ES1D 2FC RER 13 
ESIE 146 A=A+C S&x 
ESF 846 ACDC SEX 
E329 390 R= ÿ 

ES21 458 G=C R;+ 
E522 851 

ES23 8B4 NCA 2D14 
ES24 380 ?FSET 1 
ES25 64F JC ES2E #99 
ES26 388 SETF 1 
ESèt 06E A=6 ALL 
ES28 8B8 C=N ALL 
ES29 2FC RER 13 
ESeA 11E A=C NS 
ES2B 2FC RCR 13 
ES2C 878 H=C ALL 
ES2D 32B JC ES12 -IB 
ES2E 384 CLRF 1 
ESèF 138 LOI SEX 
ES38 828 

ES31 39 R- 8 

ES32 498 G=C 8R;i+ 
E533 851 

ES34 8B4 ?NCXA 2D14 
ES35 198 C=H ALL 
ES36 ARE ACC ALL 
ES37 629 C=N ALL 
ES38 3E8 RTH 


LPC 


ES3S 883 “C” 

ES3A 618 “P° 

ES38 18€ “L" 

ES3C 088 NOP 

ES3D 345 

ESSE 048 ?NCK@ 1811 
ESSF 361 

E548 680 PORT DEP: 
ES41 6F2 XQ E4F2 
ES42 1AB A=B=C=û 
ES43 338 RERD 12(b) 
ESé4 8EB SLCT & 

E545 IC R= 3 

ESdé 2E2 ?C+0 ER 
ES47 8AB JNC ESSC +15 
ES48 278 RAH SLCT 
E549 GA ACDC R< 
ES4A 938 READ GT) 
ES4B 86 SLCT P 

ES4C 39C R= 8 

ES42 8h68 SLCT P 

ES4E 3DC R=R+I 

ES4F 3DC R=R+I 

ES58 6E8 SLCT & 

ESS 1A2 A=A-1 ER 
ESS2 342 7h48 8R 
ES53 3)? JC ES4D -G6 
ES54 2DC R= 15 

E555 652 C=8 P-0 
ES56 8RE AC ALL 
ESS? BIC R= 3 

ES38 18 LIER 7 

E999 @AE ACC ALL 
ESSA 86E AB ALL 
ESSB 638 JNC E562 +7 
ESSC 266 C=C-1 S&x 
ED #iC R= 3 

ESSE 138 LIER 7 

ESSF 278 RAM SLCT 
ES68 6EE C£2B ALL 
ES61 936 READ 8CT) 
ES62 978 H=C ALL 
ES63 94E C=8 ALL 
ES64 278 RAN SLCT 
ES6s 689 C=N ALL 
ES66 346 2P+8 SEX 
ES67 Q1F JC ES6A +43 
E568 381 

ES69 398 2HCXQ E4C8 
ES6A 931 

ES6B 394 7HCXG ES8F 
ES6C 16 A=A-1 SEX 
ES6D 190 ?FSET 8 
ES6E 828 JAC ES73 +45 
ES6F Q1E A=8 NS 

ES78 240 ?FSET 9 
ES71 843 JNC ES79 +48 
ES72 17E A=f+1 MS 
ES73 8EE CB ALL 
ES74 810 R= 2 

ES75 262 C=C-1 6R 
ES76 EE CB ALL 
ES?7 2C2 7B+8 ER 
ES78 377 JC ESb6 -12 
ES79 QAE ACC ALL 
ES7A 6A6 HRIT 2(Y) 


ES7B 8EE C>B ALL 
ES7C 8E8 RIT 3(X) 
ES7D 261 

ES7E 188 ?NCXG 6298 
ES?F 345 

ES88 848 7NCXA 1811 
ES81 8B8 READ 2(Y) 
ES82 6AE AQC ALL 
ES83 9F8 READ 3(X) 
E584 39E ?7A+9 NS 
ES85 381 

ES86 642 ?NCGO 19E8 
ES87 1BE A=A-1 NS 
ES88 JSE ?f+8 NS 
ES89 29F JC ESSC -2D 
ES8A 188 SETF 8 

ES8B 248 SETF 9 

ES9C 283 JNC ESSC -38 


E4Cg : 

IDENTIFICATION INSTRUC- 
TION 

E4F 2 : 

RECHERCHE ADRESSE 
ESRF : 

CHARGEMENT CODE EH ALPHA 
LPC: 

LIST PROGRAMN'S CODES 


& EXEMPLES 


CB 88 F4 O6 Gé 45 4C 
F3 54 45 40 if À6 6E 
F4 4E 4F 47 3F 8C 8E 
86 A6 SD 1B 48 À6 6H 
RE 54 7E 9F 99 CA 84 
83 

8e 8 96 GB C6 GB FE 
88 54 DB Gi 77 9F 78 
SF 76 95 06 E6 8 76 
SF 79 DA Qi F5 9F 88 
55 88 08 A8 06 66 BE 
88 e8 96 GB C9 45 45 
CE 06 F6 GB 58 52 43 
41 54 90 88 AS 11 F5 
58 92 4F 4D 3F 8E A5 
64 Bi 42 F6 4E 4F 26 
Je 4F 4) 9B 73 7E 89 
1D F5 58 98 43 4i 54 
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LPC: Organigramme 








Recherche Aûresse 
(EF ) 


Insertion 1°T registre 
dans la boucle 


Incrémentation Adresse 
Piochage Codes 


Fin 
instruction 
? 













non 


Chargement Code en 
alpha (E59F) 
Décrémentation longueur 
instruction 






Instruction 
Enû 


non 


Décrémentation nombre 
de codes à traiter 


ou! 


Identification 


nouvelle instruction 
(EC) 





AUTRE EXEMPLE: 

Le PRG "F',auec GTD 
conpiles-grivate 
tutilisation du PROH "PF 
apres listing “noraal”) 


BisLBL *P" 
88 &EB TL 
83 REG 
fa aER ] 
5 EG 
86 $ER _ 
Br -1-2-3 
85 VIER # 
89 TÜHE * 
i8 RTK 

ji .ENE, 


PRIVATE 


LT D QU a 
fn CE pots cf 1 
Û D al 4 Dai 


Pour des raisons d'implantation, je n'ai pas utilisé 
d'instruction PORT DEP, (E568 et E5G),mais un adressage direct. 
Enfin,pour les inconditionnels des choses bien faites,il 
est toujours possible de rajouter une routine d'impression d'une 

en-tête (par exemple: PRGM "TRUC"),ainsi qu'une routine 
contrôlant la présence de la Printer,avec affichage de "NO 
PRINTIER". De toutes façons,il ne tient qu'à eux d'apporter les 
modifications souhaitées. 


Daniel JACOB (11) 
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IMPRESSIONS SUR LE HF 110 


Il etait une fois un HF-110.,, Cette histoire commence par 
un coffret de couleur beige pale de ZSOX?P?7S5405 mm. A 
l'interieur, se trouvent, en vrac, un ecran rabattable a 
cristaux liquides de 16 lignes de 80 caracteres, #72 Ko de 
MEV, un traitement de textes, un tableur ( feuille de calcul 
du type VisiCalc "ameliore".., ), un clavier, GQUWERTY pour 
l'instant, un MODEM integre, une interface HP-IL, j'en 
passe... La memoire vive est organisee suivant le principe 
du disque virtuel, autrement dit, une partie de cette 
memoire sert de zone de stockage de fichiers tandis que 
l’autre est laissee «a la discretion de l'utilisateur. Le 
tableur integre est le LOTUS 1-2-53, initialement ecrit pour 
l'IEM FC: comme on le voit, HF n'emploie pas n'importe quoi 
sur ses engins, quand il est fait appel a des sources 
exterieures... Le traitement de textes, vous en appreciez 
la souplesse en ce moment par la lecture de ces lignes. 
Quand au HPF-IL, c'est lui qui a permis le branchement du 
HP110 a la HF 82905 et de lister cet article... L'ensemble 
fanctionne bien sur sur batterie rechargeable et une 
indication sous F,A4.M,. {Fersonal Application Manager, le 
mode dans lequel Se touve le 110 à l'allumage et qui 
contient les menus principaux } donne la charge exacte de la 
batterie en pourcentage ©! Son autonomie est d'environ 16 
heures pour un temps de charge de 1Æ2h., avec un modeste 
chargeur du type utilise pour HF41 , Sous FAN, on peut 
atteindre donc le MemoMaker ( le traitement de textes dl 
1-2-5  ( le tableur}, un logiciel permettant de gerer le 110 
comme terminal € en particulier, l'emploi du HF-IL ) et le 
S.E,D. employe par le 110, MS.D05 ( soit, en francais, le 
systeme d'exploitation de disquettes au standard MS, DOS, 
autorisant l’utilisation de tous les logiciels ecris dans ce 
standard ); par exemple, il conviendra de se procurer un bon 
interpreteur EASIC { où  FORTRAN, ou n'importe quoi 
d'autre...) mais un langage de programmation, car le HF-110 
n'en à AUCUN en version de base ( sans oublier un lecteur de 
disquettes pour pouvoir lire celui-ci, car la version de 
base n'en a pas non plus ... ? Quand je resus la bete, une 
Jeme application de base etait disponible, une serie de 
tests de diagnostic interne, mais celle-ci disparut au 
premier MEMORY LOST cause par une main criminelle ayant 
reussi a atteindre le bouton d'autodestruction, pourtant 


bien dissimule... Enfin, c'est la vie ! Le MODEM integre 
transforme le 110 en simili-telephone de campagne ambulant : 
pour assurer la communication entre 2? MODEMS, il suffit 


simplement d’arracher le fil de votre telephone et de le 
connecter a votre HF-110 dans la prise prevue a cet effet... 


Les F,T,T, apprecieront ! Un HF110 peut aussi vous servir 
de reveil-matin { un peu cher, mais enfin.., ) grace a un 
fichier contenant les alarmes que vous lui specifiez 


(sonnerie, affichage d'un message, demarrage d’une fonction 
quelconque,...), Le clavier du monstre dispose d’une ligne 
de 15 touches de fonctions. dont 4 utilisees pour le curseur 
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et 8 comme menu simplifie. 

En conclusion, un peu plus qu'une belle becane mais qui me 
semble handicapee dans sa version de base par. l'absence de 
lecteur de disquettes , indispensable vu le prix du HF110 
environ 35,000 FF ) et l'impossibilite de le programmer 
dans cette configuration. 


Olivier ARHEY ( F118-T164 ) 








ŒET voiet LA 






GRAND SPECTACLE DE 
\ PRESTIDIGITATION FAR, 


Pi B: MO Coussimo” f 


NOUVELLE HPHO ! 











JPC 
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PROBRANNE JPCLISTE 


Chers gentils aenbres, 


Coase vous avez pu le constater dans les 
précédents JPC, les listages sont présentés de 
sanière "structurée". 


Ceux-ci ont été faits à l’aide du 
prograage que nous vous fournissons ce mois-ci. 
Nous l'avons nosaé "JPCLISTE”’. 


Partis d’une siaple idée d’utilitaire rapide, 
nous Sonses arrivés à un prograsee cosplet, 
incluant la totalité des instructions qu’il est 
nécéssaire de aettre en valeur afin de clarifier 
les prograsees. 


Quelques règles sont cependant nécéssaires, 
si l’on veut bien utiliser ce programse: 


- Tout d’abord, structurez bien vos prograsses. 
JPCLISTE ne les structurera pas à votre place ! 


- Ne concaténez pas trop vos lignes. Les 
programmes destinés à la parution sont, saut 
execption, clairs afin que n’iaporte qui puisse 
les cosprenüre. 


- Si vous voulez que vos Labels, DATA, DEF FN et 
autres SUB soient ais en valeur, settez les en 
première position ou sieux, seuls sur la ligne. 


- Vous n'avez pas à vous soucier des tirets pour 
séparer les parties de vos chefs-d’opuvre: si des 
SUB ou DEF FN sont placés à bon escient, JPCLISTE 
s’en chargera pour vous... 


- De aête, ne vous souciez pas des tirets devant 
les resarques (qui doivent obligatoiresent être 
écritent avec des "l* au lieu de "REM". 


- Faîtes égalesent attention: les nuséros de ligne 
sont enlevés, c'est-à-dire qu'il peut rester 
quelques trous, après un RENUMBER par exesple. 
Pensez-y, cela fait toujours aauvais effet ! 


L'utilisation se fait sans trop de problème 


mn ms ee mem me nue MS ue ee ut mn en mm 0e me me un me me me mn ee me = mue 


de compréhension, du soins nous L’espérons ! Après 
avoir fait [RUN], le prograsse denande le non du 
fichier à lister. Ensuite, il vous desande le 
noabre d’exeaplaires désirés. 


Attention s’il ne vous reste pas suffisasent 
de place dans votre HP71 ! Le CTRANSFORM] peut 
échouer... 


JPCLISTE est prévu pour fonctionner avec du 
papier 12" ({foraat sensiblesent A4). Si votre 
papier est de taille différente, il vous faudra 
aodifier les lignes 160 et 1100. 


Voilà, à vous d'écrire vos prograsses afin de 
les livrer à la sagacité des lecteurs de JPC. 


Heureuse Programmation et à Bientôt. 
Pierre DAVID et Michel MARTINET. 


PROGRAMME VOLABEL 


Ce programe s'adresse encore aux possesseurs 
du lecteurs de cassettes HP82161A. Il vous perset 
de lire et de sodifier à votre guise le Voluse 
Label se rouvant sur les cassettes nunériques. 


Une fois les instructions concaténées et les 
labels alphanuaériques supprisés, VOLABEL occupe 
un tout petit peu plus de 400 octets dans la 
séaoire de votre HP71, 


Le Voluse Label est une chaîne de six 
caractères 5e trouvant au début de la cassette. 
Piste 0, enregistresent 0 et octets 2 à 7. 11 
représente le nor que vous avez donné au support 
magnétique Ilors de son initialisation et par 
lequel vous pouvez l’adresser durant l'exécution 


ee 
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de vos prograsses ou à partir de votre clavier. 


L'utilisation du programe est très siaple. 
Une fois chargé en aéaoire faites [RUN], Le 
prograase vous affiche le Voluae Label courant de 
la cassette, Si vous sodifiez la chaîne affichée, 
celle-ci sera réécrite sur la bande avant le 
resbobinage final, 


Deux listages vous sont proposés, le presier 
avec des Labels alphanusériques et sans 
instructions  concaténées pour la bonne 
cospréhension du prograsse et le second optisisé 
sais bien acins lisible. 


Voilà, j'espère que ce programme vous sera 
utile. Pour ce qui est de l'HPIL, j'ai tâché de 
s'appliquer le plus possible, contrairesent au 
programme DIALOGUE (JPC juillet) qui avait été 
fait en une satinée et avec un certain sanque de 
connaissances sur le aodule HPIL du HP71. 


Enfin, cette erreur de jeunesse étant réparée 
je vous souhaite une Heureuse Prograasation. 


Michel MARTINET 


SSSSISSSISSSSETSS TES SE eue me ee men qe de me 008 ne 2 © eu ou one at nm 0 0 en 
SR TRS SSII SRE SISSSETESS ESS SSSSSDSS 


PROGRAMME NUAGE 


Ceux pour qui la physique atosique est lettre 
sorte, et que les niveaux atosiques laissent 
indifférents peuvent ne pas lire ce qui suit, je 
les pardonne. 


Par contre, ceux qui une fois de teaps en 
tesps vont chercher au fond de leur tiroir une 
antique table de Mendéléieff en se desandant 
pourquoi a partie dont ils ont besoin est 


PR ee nn ee nn De Dé me ou Dé me mt men non du ee en de dù sù 6 De Se mu ee mn = 


Es 


nn me mn mm ne mm en mm me mn me ne me en es 


déchirée, ceux là bénirons ce progranse, dont je 
ne suis pas l’auteur, 


Ne se desandez pas comment il sarche, JE NE 
SAIS PAS ! Rien qu’en le regardant, j'attrape al 
à la tête, Je se suis contenté de traduire un 
prograase génial de N. Ludovic FLAHAUT, écrit pour 
FA702P. La seule chose que je sais, c’est qu’il 
sarche, et parfaitesent en plus ! 


Vous lancez la serveilleuse sécanique, 
aussitôt Île programe vous denande le nuséro 
atonique de l'élément à étudier (=), | 


Dès que vous avez répondu, une suite de 
chiffres et de lettres apparaît, incoapréhensible 
au profane, qui représentent le détail des couches 
électroniques (avec des élastiques là) de 
l'élément. C’est aussi siaple que cela, 


Entre les lignes 30 et 70, vous resarquerez 
un catalogue de quelques exceptions (actuellesent: 


Euivre, Chrose et Platine) que vous pouvez 
allonger à votre guise, avec l'Ür par exesple. 


Prêt pour une transautation ? 


Pierre LANGLOIS. 


TAZSSSSISSSSSSLESSS SDS SRE de DD m0 0 00 me 0 0 ma 0 00 00 0 nn em me du om 
SERRE EL TERRES SELS TSSSSTSLSSS DES Sn ne 


POENE MACHINE 


Voici enfin arrivée la Poèse Machine, pour 
dérider les pauvres dPListes de base, acrablés par 
le sérieux de leur revue préférée... 


L'action de vous dérider démarre par un petit 
sessage de présentation des capacités du 
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programme. Ün enchaîne ensuite, après quelques 
initialisations, avec la liste des DATA, foraant 
le vocabulaire de base de la aachine. I] cosprend 
39 verbes (lignes 80 à 160), 10 articles (lignes 
180 et 190), 33 nos (lignes 210 à 300) et 34 
adjectifs (lignes 320 à 400). Après le chargesent 
du tableau T$, contenant ce vocabulaire, se trouve 
la boucle (lignes 440 à 500) définissant les zones 
de tirage dans T$, pour chaque type de aot. Enfin, 
les lignes 910 à 530 cosposent le sous-progranse 
de tirage au sort d’un sot dans une des zones 
spécifiées précédemment. Après cela, à vous de 
juger sur pièces... 


Olivier ARBEY (P118-T164) 


DITS Q M0 Où me EE Mn me 20 ee du me 0 2 D UN QU ou 0 Om 0 on me 
STSTISSSS TRS ASSIS TSTSSSSSRSSLIILISLITISETS ETES SSSSSS 


Routine d’inversion vidéo. 


Cette routine peraet, entre autres, 
l’inversion vidéo d’une zone de l'écran graphique. 
La variable 8$ contient le codage de cette zone, 
après l'exécution de la routine, B$ contient le 
codage de cette aène zone en vidéo inverse, On 
prendra soin, bien sûr, de  disensionner 
correctesent la variable qui recevra le contenu de 
B$, avant d'appeler la routine. 


Pierre LANGLOIS. 


ZTIDSESSIRIEDT=IS2TE SE NSTONSSSENSASRSRTTS SSL ESSEES 


FONCTION "H56$" 


mn me me mu = me Me nn et me es mn me me ns em me = ms 


m— nn 0e mm me Me ee uen mes mes es un em un me mu © ms nu Du mu ee = me 


ns mm me ne = 


Pour les pauvres hères qui ne disposent pas 
de l’adsirable fichier EDLEX, j’ai créé cette 
fonction utilisateur, qui sisule la fonction M66$. 


Pour afficher le aessage correspondant à un 
nuaéro, tapez FNN$(nunéro du sessage). Sieplesent. 
Sans autre foraalité. Quelques aots à propos des 
sessages d'erreur: 


Pour les aessages standards, leur nuaéro 
varie de 1 à 97, ainsi que quelques autres, 
répartis un peu partout... 


Pour les aessages des aodules, ou des 
fichiers LEX présents en aéacire, il y aun 
nuaéro, le LEX ID, qui est aultiplié par 1000 
avant d’être ajouté au nuséro de l'erreur 
proprement dite, 


Par exemple, l'erreur nuséro 2 du aodule 
“MATHS"  (LEX ID = 02) est codée 2002. FN$(2002) 
donne *Not square”, signifiant par exeaple, qu’on 
essaie de calculer le détersinant d’une aatrice 
non carrée, 


Si le fichier "FRALEX" (traducteur des 
sessages d'erreur) est présent, il faut rajouter 
1000 aux nuaéros d’erreur standard, où 128 aux non 
standard. 


Le prograsse utilise une adresse dans la 
séaoire du HP71, qui contient le numéro de la 
dernière erreur (ERRN). Il suffit de placer là le 
nuséro voulu, puis d’exécuter la fonction ERRAS, 
et le tour est joué. 


ERR# (2F7E4) est cette adresse. 

ERRL# (2F7EC) est la ligne où est survenue 
l'erreur. 

CURRL (2F7E8) 
courante, 


est le nuséro de la ligne 


Voilà, sijotez bien ces quelques norceaux 
choisis d’IDS... 
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À bientôt, 
Pierre DAVID 


SLSISSSSOSSOSSSES ESS D D 00 00 000 0 0 M 0 0 0m 0 ie ee A 00 8 Ou oem om 
PITISSSSSISTSISSSSSSSSSSTITOENSISSTELSSIS TS San SnSSe 


PROGRAMME POLYCOPY 


SSSSSSS SESSION Z € me O0 de M De à QU Me De D A D A A D O0 neo 0 
RER RSR RSS ER TR mm mm me RR SSSR SSL LN LS SDSSSSSSSS 


Le avis dernier, je vous proposais Île 
programe "POLYCOPV", Depuis, il a aaigri.…. 


D'environ 500 octets, voilà qu’il passe à 
218. Quel coup de baguette magique lui ai-je donc 
asséné ? Eh bien, c’est une petite phrase, perdue 
dans la page 220 du sanuel de L'HPIL. IL est 
écrit: Déconfiguration Adresse Auto { en anglais 
AA: Auto Address Unconfigure), et en face: 
Adresse égale à 21, Jdargon eystérieux que tout 
cela, ee direz-vous. Vous avez raison, 
j'explique: 

- tout contrôleur HPIL digne de ce non 
configure la boucle d'interface. Pour ce faire, 
il envoie un aessage AAU, avant la configuration, 
puis un sessage AAD 1 (Auto Adress 1) qui 
signifie: le preaier périphérique prend l'adresse 
1, le deuxièae ]}’adresse 2 etc. jusqu’à 30. Pour 
960, c’est une autre histoire... L'adresse 0 est 
réservée pour le contrôleur, sauf exception. Mais 
voilà: entre AAU et AAD 1, la boucle n'est pas 
configurée, et les périphériques ont leur adresse 
par défaut, 


C'est là qu’est l’astuce, car celle du HP71 
vaut 21, 11 suffit de déclarer récepteur le 
périphérique d'adresse 21, et d'envoyer le 
fichier, Mais il peut donc y avoir plus d’un HP71 
sur la boucle, et ils se sentiront tous concernés 
par le TAD 21 (Talk Address 21), aêse s'ils sont 
plus de 960... Plus de problèmes d'adressage 
étendu: il n’y a plus d'adressage ! 


Jde vous laisse méditer ce petit progranne 


me nm ne mu me me me me me me me ne me me ue Mn mn © en ee em e mn 0e me me me ee me ee eu mu = ee 


optimisé, et je vous dis: 


Heureuse Prograseation... avec 5000 71 sur la 


aêse boucle ! 


Pierre DAVID 
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Prograse "JPCLISTE" (listage structuré de prograsnes BASIC) 


10 DIM F$C8} © LC OFF 
20 INPUT ‘Fichier: ?:F$ 
30 INPUT *Nonbre: *,°1°5N 
40 CFLAG 10 
- Le flag 10 est araé si le fichier est sécurisé. 
50 CALL SETINP 
- On positionne l'iapriaante, 
60 ON ERROR G0TQ ?ERREUR’ 
70 TRANSFORN F$ INTO TEXT 
80 OFF ERROR 
90 ASSIEN Hi TO F$ 
100 FOR 9=1 TD N 
110 DISP J 
- Le nuséro de l'exesplaire en cours. 
120 PRINT TAB(20); "PROGRAMME ‘&F# 
130 PRINT 
140 PRINT 
150 CALL LISTE(#,E) 
- Listage propresent dit. 
160 IF NOD(I+2,60) THEN PRINT CHR$(12); 
- Si 1 (le noabre de lignes du Llistage) toabe sur une fin de page, on n’en saute 
pas une inutilesent..…. 
170 NEÏT J 
180 ASSIGN #1 TO # 
190 TRANSFORN F$ INTO BASIC 
206 IF FLAG{10,0) THEN SECURE F$ 
210 END 


220 ERREUR’: 
230 IF ERRN()61 AND ERRN}1061 THEN 250 
- ERRN=61 : fichier sécurisé. 
240 IF NOT FLAG(10,1) THEN UNSECURE F$ & GOTO 70 
- Sinon, on arrête le prograsae, et on affiche le aessage correspondant, 
250 CFLAG 10 
280 DISP ERRM$ 
270 END 


A 202 220 de me 4 du M te A 4 0 0 D 0e D A mé 0 Me D M ie 000 2 AS 2 2 200 20 0 Où MP 00 20 20 0 9m ae ne mm 
ER 


1000 SUB SETINP 
1010 ON ERROR 60T0 1030 
- Maxiaus de précautions ! 
1020 RESTORE 10 
1030 OFF ERROR 
1040 RESET HPIL 
1050 RESTORE 10 
1080 PRINTER 15 :PRINTER 
- Cospatible HP82905B-HP2225B (allias Thinkjet) 
1070 CLEAR :PRINTER 
1080 ENDLINE CHR$(13) 
- Pour ne pas passer à la ligne. 
1090 PRINT CHR$(27)&7&k25" 
- Caractères conpressés. 
1160 PRINT CHR$(27)&/&172p60f il? 
- 72 lignes par page, 60 lignes de texte, saut de perforations. 


ne 
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1116 PWIDTH 132 
1120 ENDLINE 
1130 END SUB 


ŒSSSSSSZIST TESTS TSSSTSISESSSSSERSRSTSILTISTIILSSSIISILEESSITIRESS 
2000 SUB LISTE(#1,1) 
2010 DIM A$E99] 
2020 INTEGER À 
- À est utilisé pour les fonctions utilisateurs: 
À est vrai si aonoligne, faux si eultiligne. 
2030 CFLAG 5,6,7,8,9 
- ds Araé signifie "Prenière ligne de reaarque" 
ä: Araé signifie "La ligne précédente est un Label“ 
7: Araé signifie “Une Ligne de DATA qui n’est pas la presière" 
8: Araé signifie “Il faut tirer un trait" 
9: Araé signifie “Groupe de lignes DATA", 
2040 RESTORE #1 
2050 ON ERROR 6070 *FIN' 
- L'erreur surviendra à la fin du fichier. 


SSSSTISSITITERSSTISSSTSTSSTSTSSSSSSNSSSSESSSEISELLISSISESISSSEISISESSS 
2980 *DEBUT’: 
2070 FOR I=1 TO INF 
2080 A=0 
2090 READ #13A$ 
2100 IF A$C6,91="DATA” THEN GOGUB *DONNEES’ ELSE CFLAB 7 
21106 IF FLAG(9,FLAB(7)) AND NOT FLAG(7) THEN SFLAG 8 
- Ca va, vous suivez ? 
2120 IF A$C6,81="7" THEN GOSUB ‘LABEL’ ELSE CFLAG 4 
2130 IF A$C6,113="DEF FN’ THEN GOSUB ? FONCTION‘ 
2140 IF A$C,83="SUE” OR FLAG(8} THEN GOSUB ‘LIGNE’ 
2150 IF A$C4,6]1="!* THEN ?REMARQUE* 
2160 PRINT USING *#,19X,4D° : VAL(A$E1,41) 
2170 PRINT A$[5] 
2180 CFLAG 5 
2190 IF A$C4,91="END * OR À THEN SFLAG 8 
2200 NEXT I 


CRETE TTIESTISIRSETRTETES RSS SRE SSLSSSSISSSSSSISISLTSSSLISSSS 


2210 LABEL”: 
2220 SFLAG 6,8 
2230 RETURN 


SSSSSSSSSST NIMES DD 0 A ON EUR AE de 20 0 DM 7 ED D D 0 NS 2 me mo me 0 0 nm ms om 
SRE SER SES RSERERRSTETSISSRSSSSRSELISOISI ESS SESSSSTISSSSISSISSSESE= 


2240 ?DONNEES”: 

2230 IF NOT FLAG(7,1) AND NOT FLAG(6) THEN SFLAG B 
2260 SFLAG 9 

2270 RETURN 


2280 FONCTION’: 
2290 SFLAG 8 
2300 A=POS(A$, =") 
- On suppose, pour un prograsse structuré, que lors d’une fonction utilisateur aultiligne, 
le DEF FN soit seul. Dans ces conditions, il n’y a pas de *=" sur la ligne. 
2310 RETURN 


2320 ‘LIGNE’: 
2330 CFLAG 8 


JPÉ 
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2340 PRINT 
2350 PRINT TAB(20) ; las TERz2R2S2 SES SSSSRSSST ES SETTTS ESS SSH E SES TZ ES ESS SSE= True? 
2360 1=1+2 
- l'est la variable qui contient exactesent le noabre de lignes listées. 
2370 RETURN 


2380 ?REMARQUE” : 

2390 IF NOT FLAG(S,1) AND A$(814* THEN PRINT TAB(23);°-"; 
2400 PRINT TAB(25);A$C8] 

2410 GOTO 2200 


2420 *FIN': 
2430 END SUB 


DÉSERT ENT RNENEE TE TENENANRRNNTATEANSENNTENNENEEENRTNRETTEENNENNANENTASNAETANASNNEENTANSNNAEENINNETENNIÉETNS 


Prograsse VOLABEL taodification du voluae label d'une cassette) 


SSZTISTISTIISISSISITESITISSSSSSSSSSSLIESSLSISISINSSS Sens S Semen 
1000 *INIT': 
1010 DIM U$L61,V$L4] 
- U$: ancien voluee label, V$: nouveau voluae label, 
1020 INTEGER D 
- D: adresse du lecteur de cassette sur la boucle d'interface. 
1030 ON ERROR GOTD 1060 
- Si la boucle est en contition d'erreur, RESTORE IO n’est pas exécutable. 
La séquence d'instructions suivante (RESTORE I0, RESET HPIL et RESTORE 10) est donc 
indispensable pour l’initialisation correcte de la boucle dans tous les cas. 
1940 RESTORE 10 
1050 RESET HPIL 
1060 RESTORE 10 
1070 DISPLAY 15 ?NULL 
- Lorsqu'un périphérique est déclaré DISPLAY 15, le HP7 envoie à tout sosent UNL pour 
n'adresser que ce périphérique. 
1080 D=DEVADER (216?) 
1090 IF D=-1 THEN DISP ‘Pas de lecteur !* & END 
1196 GQSUB * LECTURE” 
1110 ON ERRDR G0OTD 1120 
- Ce test peraet de ne pas interrospre le prograsse lors de L'introduction d’une chaîne 
supérieure à à caractères. 
1120 LINPUT ‘VOLUME LABEL :°,US;v$ 
- Attention: le prograsse perset d'écrire n’iaporte quel voluee label. 
1136 OFF ERROR 
1140 IF VS#US$ THEN GOSUB *ECRITURE* 


SSI MIA DS 0 0 0e On Œe On 00e 0 Me D ns M M A D 2 ee A 2 D 2 2 0 on ou © ou a 
SSSESTIECTISESS SSSR RSS SSSRSISEISSISSIINSSISSREISSENRSESSSESSE 


2000 *FIN’: 
2016 SEND DD 7 
- Resbobine la cassette, 
2020 SEND UNL 
- Le lecteur devient non-récepteur. 
2030 END 


3000 ?LECTURE”: 
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3010 6OSUR *POSELECT” 
3020 SEND TALK D 
- Le lecteur devient l’ésetteur de la boucle. Le HP71 le prépare pour l’envoi de données. 
3030 SEND DDT 0 
- Envoi séaoire 0, lin sessage Envoi Données (Send DAta, contenu dans l'instruction ENTER) 
suivant transfère le contenu de la aéaoire 0 sur la boucle à partir de la position 
du pointeur d’octet. La sésoire est transférée jusqu’à ce qu’un aessage Pas Prêt pour 
les données (Not Ready for Data) soit reçu... 
3040 SEND MLA 
- Le HP71 se déclare récepteur (My Listen Address), 
3090 ENTER :LOQP USINE *#,6A°;Ù$ 
- Le # du forsat peraet au HP71 d'envoyer au lecteur de cassette le sessage Pas Prêt 
pour les données (NRD) après réception des & caractères du voluse label (64). 
3080 SEND LISTEN D 
3070 RETURN 


ŒSSTSSSTSSSSSSTSIITISÉEZEZEIEISSISESENSTENESTERSRSISSRSSSSSSSNSSS 
4000 ?ECRITURE? : 
4010 SEND NTA 
- Le HP71 se définit coase l’éaetteur de la boucle. 
4020 BOSUB *POSECRIT’ 
4030 U$=" ; 
— U$ égale à caractères blancs: c’est le voluse label par défaut. 
4040 U$C1,LEN (VS) 1=V$ 
- Pour n’écrire que le strict nécessaire et cospléter la chaîne par des blancs. 
4050 SEND DATA U$T1,51] 
- Envoi des 5 premiers caractères. 
4060 SEND END NUM(U$C47) 
- Le dernier des & octets est envoyé sous la forae d’un octet de fin (END byte) pour 
enregistrer le contenu de la méacire taapon 0 sur la cassette, (voir DDL à) 
4070 RETURN 


SRSSISISSSSSSSS SOS SMS SLSESTSILTSNÉSETITESSLILSSESESELESSESESSE 
5000 *POSELECT”: 
5010 SEND MTA 

- Le HP71 se définit come l’ésetteur de la boucle. 
3020 SEND LISTEN D 

- Le lecteur devient récepteur. 
5030 SEND DDL 4 

- Recherche, les 2 octets de données (DAta Byte) suivants définissent les nuséros 

de piste (0 ou 1) et d’enregistresent (0 à 295) et y positionnent la bande. 

3040 SEND DATA 0,0 

- Les 2 octets de positionnesent. 


3050 *POSECRIT': 
5060 SEND DDL 3 
- Le voluse label se trouve sur La piste 0, enregistresent 0, octets 2 à 7. DDL 3 
positionne le pointeur d’octet. 
9070 SEND DATA 2 
- Positionne le pointeur au début du voluse label. 
3680 SEND DDL & 

- Ecriture partielle, L'enregistrement courant est copié dans la aéaoire tampon 0 et 
la bande revient au début de aëse enregistrenent, Les octets de données (DÂB) reçus 
renplacent le contenu de la séaoire en congensant à l’esplacesent du pointeur, À la 
réception d'un octet de fin (END), celui-ci est placé dans la aéavire 0 et son 
contenu est écrit sur la bande, 

2090 RETURN 


EESTI EEE ETES ETENNN NA SNTNNNENTTNNTTTARTTANNANANNNNNNNNENNNENNTANNAEET ES 
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Pragrasee "YOLABEL" {version optisisée) 


1000 DIM U$E6],V$6] & INTEGER D © DISPLAY 15 :NULL € ON ERROR GOTD 1010 @ RESTORE 10 

1010 RESET HPIL & RESTORE 10 8 D=DEVADDR{'TAPE’) 

1020 1F D=-1 THEN DISP ’Pas de lecteur !* @ END ELSE GOSUB 1050 & ON ERROR 6070 1030 

1030 LINPUT LABEL :°,U$;V$ @ OFF ERROR & IF V$aU$ THEN GOSUB 1040 

1040 SEND DDL 7 UNL @ END 

1050 GOSUE 1080 & SEND TALK D DDT 0 MLA & ENTER :LOOP USING *#,6A';U$ © SEND LISTEN D @ RETURN 
1060 SEND MTA & GOSUB 1090 & U$=* ? 8 USCI,LEN(VS)J=V$ € SEND DATA U$E1,53 END NUN(U$C8]) 
1070 RETURN 

1080 SEND NT LISTEN D DDL 4 DATA 0,0 

1090 SEND DDL 3 DATA 2 DDL & & RETURN 


SAS TINRSTENNNNNANESESEEE RSR ENSSENNEE SENS NNNNREETEENAEEREEENTANENTRTERSNRERENNNNANENNNETSTERNERENANTNNNETNNTNENNNNNNES 


Pragrasse "NUAGE" (calcul des niveaux énérgetiques d'un atore) 


10 DESTROY A,A$,E,N,P,1 8 STD 

20 INPUT ’1=’51 8 1=IP{1) 6 A$="spdf” 

- Catalogue des exceptions: 

30 IF 2=29 THEN 2=18 6 GOSUB 70 & DISP ’4s1 3d10° 8 END 
40 IF 2=24 THEN 2=18 @ GOSUB 70 & DISP ‘451 345’ & END 
50 IF 2=78 THEN 2=66 € GOSUB 70 & DISF ’bs1 Sd9’; & END 
60 GOSUB 70 & END 

70 FOR E=1 TO 13 © FOR N=IP{E/2)+i TO E 

- Coeur du progranse: 

80 P=2444(E-N) & 1F A+P32 THEN P=1-À 

90 A=A+P 8 DISP STRSEN)SASLE-N+I,E-N+1)3STRS (PI? 5 @ IF A=1 THEN RETURN 
100 NEXT N 8 NEÂT E 


LHRISESTEN EN ENEENSETEENEETEESREEEESEEREERASESENES ENST ENNNRTESREE TERESA 


Prograase "FOEME" (générateur de vers) 


— PUENE MACHINE 

20 DELAY 1,1 
30 BISP “Voici la Poese Machine..." 
40 DISP "... 437380 vers distincts!" 
50 OPTION BASE 0 

60 DIH T$(116)L8] 

- 39 noas 


80 DATA "BGIS", "VOIS", *VOLE", LANCE" 
90 DATA "PREND*, "PORTE", “AIME, "PUNIS" 
100 DATA "VEND", "LOUE", "JUGE”, "ABRITE" 
110 DATA "SALUE", "PINCE", "CASSE", "HORD" 
120 DATA "AIDE", "NANGE”, "CACHE", "SALIS" 
150 DATA “JQUTE", "CLASSE", "SUIS", "SUCRE" 
140 DATA "SUCE*, *COMBAT®, "SAIGNE", SEME" 
150 DATA “GARDE”, "REDIGE","ETALE","EPIE" 
160 DATA “EPOUSE* 
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- 10 articles 


180 DATA "MON", "TON", SON", "NOTRE”, “VOTRE" 
190 DATA "CE", "LE", "UN", "DU", *LEUR" 


qe ce 0 2 tn 0 00 0 200 ou 200 00 me me on a Gun ee ee me me mn GO 0 2 ne ee D D 2 D 0 om uen ne 
SSSISSRSSSSTTSISISEDSSSTSITIISITSSTITRNITIRSTSSSSSÈTISSSSESRESES 


- 33 verbes 


210 DATA "LION", "CHAT", "CHIEN", “LAPIN" 
220 DATA “CLOU", "HEROS”, "VIN", “SUCRE” 
230 DATA "TIGRE", "NUAGE", "TRAIN", “BERET" 
240 DATA *GIVRE", "GESTE", "CRANE”, "DRAP" 
250 DATA “COEUR”, "FRERE", "GAGE", "GALON" 
260 DATA “FREIN”, "FILON", "FAUVE", CANAL" 
270 DATA “CABLE”, "BANC", "BARON", "BARIL* 
280 DATA "BATON”", "CHAMP", "LINGE", "LIVRE" 
290 DATA "POIDS", *PACHA", "NABAB", "MABOT" 
300 DATA "MAJOR", "MAIRE", "COUDE" 


0 00 0 no 0 00 te  n  D S Q A 20 A QD Qu 0 0 0 DU mu 0 2 A de 0e de ce 200 
ZRIITISSISSSSREISTEISTISSESSESSSESTSS SES RTESESS RSS SR SSSR SSS SSSR SES 


000 00 en 20 20 0 00 0e D 20 O0 0 0 0 0 00 0 10 0 00 ee 0 NN A QU 0 D em ue 00 ms ue mem 
SSSSSSSSSSTSSSSSNTRRTSRSRES TIRER TDSEIZIISISIEZSESS TRS SR meme mme 


320 DATA "LENT”,"SNOB", "FOU”, "VIDE" 

330 DATA "SEC", "VERT", "CUIT", "AIGU" 

340 DATA “DUR”, *DOUX*, "SALE", "VELU" 

350 DATA "BRUN", "BLEU", "NOIR", "BLANC" 
360 DATA "NEUF", "PALE", "KAKI”, *FORT" 
370 DATA “FLOU”, "*CHIC*, "MOU", "IDIOT* 
380 DATA “HORDU","SQBRE","RIANT”, "ROUGE" 
390 DATA "PUETE", "NET", "PETIT", *SOURD" 
400 DATA “PERDU”, "TRAHI" 


a cs 0e 100 000 0 00 Qu pe 20m ee 0 2 en 0 DNS 2 mt D 9 0 0 Ge De 0 ne D me de MD ue me 20 0 0 2 UD en qu CU ae 
SSSSRSSSTIITITSSISISIISSISSSSTILSISISTSSSRSS SSSR SSSR TRS RES SELLES 


410 FOR 4=0 TO 115 

426 READ T$(A) 

430 NEXT À 

440 B=33 & DESTROY C & DESTROY À$ 
450 GOSUB 520 

460 D=10 8 GOSUB 510 

470 D=39 & GOSUB 510 

480 D=34 € GOSUB 510 

490 DISP À$ 

100 GOTO 440 

510 C=C+B & B=D 

J20 AS=ASETECINT (RNDIB+C))E" * 
530 RETURN 


DRRRALEENNNTEENEEENNTENNNSNNEARETEERE NE TENENEENEEENEELRESNENNN TETE TNETNNTENNSEES ETATS NNNNNNNT EAN ERELTENNTITIEES 


Sous-prograase "VIDEO" (inversion videc pour une chaîne de caractères) 


- Pierre Langlois à Soisy, le 8 août 1984, 


402 ou ce ae 0 a 000 0 00 290 0 20 20 2 2 1 2 0m 0 D ee D D 0 em mn mn nee 
SSSSSSSSSSSSSIRRSTIZSITTITT RES SET TTSRSTTR RSR ESS SSSSISSSTSSSEE 
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1000 SUB INV(A$,B$) 

1020 B$="” 

1030 FOR 1=1 TD LEN(AS) 

1040 B$=BSLCHRS(255-NUN (ASCII) } 
1030 NEXT 1 

1060 END SUB 


ARETETELSSNATTENNNETE TEEN ERANTTENTTSNEETANSSNENSRENETNNSSEEREEETETRETENITTNNSSEEENNSNENNENTENAESENTATTENTNNNNTNRTANTENTINLNAES 


Fonction "NS6$" (aëssage correspondant à un code d'erreur) 


2 202 00 Dé mas Me qu Me où de mt dun de M 200 2 ue db 2 us le on 0 D A D D 7 A A OR D Sn 2 D Qu nn om 
RSS RES SSSR mm nDR RSR ERITSÉRIISILESSSSSSSNEITSITSSESEZ 


10 DEF FNHS$(N) 

20 A$=DTHS (MOD IN, 1000) } CS J&DTHS (MOD (N, 1000) C4, 4I8DTHSN DIV 1000) [SI&DTH$IN DIV 1000)[4,4] 
30 POKE *2F7E4",A$ 

40 FNM$=ERRNS 

50 END DEF 


TÉRUSSENESTE TEEN ENENENS ENS EENANNENNTERENSNEEENANSTNNEENNNNN SAR TANTENEENNEENNSNNRENNNRATESNENATNSNNRNSRSNTANANTENEEE 


Prograsse "POLYCOPY" (transsission siaultanee de fichiers) 


10 DIN F$,1 @ RESET HPIL @ RESTORE ID € SFLAB -24 @ ON ERROR 6010 50 

20 INPUT *Fichiers: ?5F$ & IF F$=7° THEN CFLAB -24 & LOCAL @ RESTORE 10 €@ END 
30 RENOTE @ SEND IFC CHD 154,33 NTA 

40 OUTPUT :LOOP ;'COPY:L00P TO°&F$ € COPY F$ TO :LOOP 8 G0TO 20 

50 FOR 1=1 TO 20 @ QUTPUT :LOOP ;°° @ NEXT I @ DISP ERRM$ @ BEEP & G0TO 10 


ATTESTANT EEE NANTES EEE NNENNTEEENRRTERATLELSTETAT 
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